home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_12.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  427 b   |  21 lines
  1. on exitFrame
  2.   global eka_auringossa, ComputerSpeed
  3.   if eka_auringossa = 0 then
  4.     KasiCursor(4)
  5.     cursor(-1)
  6.     set eka_auringossa to 1
  7.   end if
  8.   if rollOver(9) then
  9.     if the frame = label("sunmover") then
  10.       if ComputerSpeed < 3 then
  11.         set the directToStage of member "sunmove" to 1
  12.         go(the frame + 1)
  13.       else
  14.         go("mm_prestart")
  15.       end if
  16.     end if
  17.   else
  18.     go(the frame)
  19.   end if
  20. end
  21.